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12,40 DM - Mil noch mehr Programmen - 6-7/84 Juni-Julil 



M achen Sie mit bei unserem 

Super-Knobel-Preisaussclireibeii I 




Gewiiinen Sie den 

VZ200 



| C 64 Duell 

j VC 20 Bomb-Panic 

I ATARI Car-Race 



ZX SpeCtriim Pyramid* 
<£n. O I Fledeimaus 

DRAGON 



Tl AA MJt A Car-Drive A ~ ~ I — Buchstaben- 

j Tl 99/4Acowboy Apple plot 

I mit vielen Berichten, Tips + Tricks und Hillsprogrammen 



APPLE Hj 

ATARI 

CBM 



;r-Typs Mit rileser Beglaii- 
I Ihien Camputer eifolgrei 
Ml idle MSgllchkeiten nut 



BUB COMPUTER. L 



cam 

campuTER 

HflTlDBLICH 



Itj-iij 



Weiterfiihrende Literatim. 



HI 



1 



vuc< 

1" 



VORWORT 





_ Liebe Leser 


r jM eigentlich sollte dieses 
















allerdings diese und die nachste Ausgabe 


eine Doppelnummer . Das Heft August/ September 


korant also erst Ends Juli. 


I Dnser Konzept wollcn wir bis auE diese Snde- 


rungen beibehalten. Es soil eine Mischung aus 


Text und Programmen sein und natiirlich eine 


"■■. :. r.- : ■■■.- :■ . i :■: : . i. ■: ;■; h .-.-. . \: ■■. ■:■ :<■■■■;■■■•■ '■■: ■ -.-■- ■ i m 


letztin Heft war da schon ein voller Erfolg. 


Uber 800 Losungen sind inzwischen eingegangen. 


1 davonallein ca . 150 Tjosungsprogramme . Die 


Bekarmtgabe der Gewinner kann aber erst im 


nachsten Heft erfolgen, das Liisungswort ver- 


raten wir trotzdem jetzt schon: "RICHTIG" 


war das gesuchte Wort. 


Im Abonnement gibt es Computer-Kontakt vor- 


erst nicht . Die Versandkosten waren zu hoch. 


Einen Kassettenservice wollen wir aber bald 


einfiihren. 


j Noch eine Bitte zum SchluS: Computer-Kontakt 


1 braucht noch mehr Leser. Je schneller unsere 


|. verkaufte Auflage steigt, desto eher konnen 


■ wir auch den Umfang stcigern. Wie ware es 


I deshalb, wenn jeder, dem die" Zeitung gefallt, 


| sie seinen Freunden weiterempfehlen wiirda ? 


! Alls konnen mithelfen ! 


I Viel Spafl beim Knobel-Preisausschreiben 


| wunscht Thnen Hj, 


I Th ^ ^ 





Computet Kontal I 



CLUB-NACHRICHTEN .- 




Computer Koniakt 6-7/B4 



CLUB-NACHR1CHTEN a 



Der Computercliib Weiden 












rdis=fiilute octer giplantc Soft- " Miigilciler 



sssssEsr 


adS&ta™ 


gHjHSr 
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DASSUPERDINGfur139.- 



DIE ZUKUNFT HAT BEGONNEN 

cClYL electronic 

ErlenmeyerstraBe 3 ■ D-6204 Taunusstein 4 
"Lieferung erfolgl per Nachnahme, solange Vorrat 



BOCHER 




Computer Kontakl %-7IM 



Logikdes 
Programmierens 



I infii lining in LOGO 



SBN3-88322-023-X 




W^ 




BUCHER s 



»Mei n Dragon 32« 




Maschinencode-Routinen 
fiir den ZX-Spectr urn 



von John Hardmai 
Andrew Hewson 
16'JSeilen, DM 29,8(1 
Birkhauset Vcrlag. Basel 
ISBN 3-7643-1559-8 



;X-Speclnim* beschaitigl, 




XI BASIC fur Anfanger 
und Fortgeschrittene 



TI- Learning Center 

::9Sdlen,49,-DM 

Texas Instruments 

DeutsclilandCimbH, 

Freising 

ISBN 3-88O78-039-0 






Computer Kontakt 6-7/84 



SPIEL-REVIEWS 



ES332S Die Apple Erfblgsstory 



/eltweil uber l,4Millinnen Apple im Einsatz 



7 (' z 


•|PI 


;ll! 


Oaf Holm 

Software ■ Haniwae ■ SfrAa 


AiifOanW1nkel27 
D-5B«I [sertohn 

Sir luwerlasalaBr Partner (Or 
VIDEO GENiE und THS-SO. 


IpssE 






'■■■ it ''■'< n ' "tomuS 'maTilmn"™- 


VI ir sih.-Ik.-h 
nnch Mitarbriter. 
IhrdirckterDrahl 
zurRedaktinn: 

Tel. 07252/4294*. 



¥ 



SPIELE IM TEST 



BLAGGER 

Ein Spiel mit 30 Bildern 






ue64sm.Bei<fciiiSpi.; 












,-.|-.,.-.h,: •.n,.-M,:l 



=,iS=r3S S 
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jnKKHHHlllHftH 
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Der prof essionelle Heimcomputer 




Computer Kontakt 6-7/B4 



SPIEL-REVIEWS 



Flip and Flop 




Ba u ste i n - K o nzep t 



Mit Com pu tern un d Da- 
ten sorgfattig um getien ! 






St aubschutz ha u ben 



slftllung auTgebyn, 



«M LanawiMd H 



Computer Kontakt 6-7/64 



SPIEL-REVIEWS " 



HELIKOPTER 




LEGGIT - Ein Dragon 32 Spiel 



kn D.in.i'h Irn.b^T nun ,fns K:iMv-p:f knn.l unf*' k i>railien L-! .Li^hwin- ?fn J r ,],- 



























V' : l ■'■.-, 


Name . 


Uegii 
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Aupfc.ug 



Computer Kanlakt 6-7/34 



SPIEL-REVIEWS 



Der neue 'FP'- Compiler von Softek 

Mil 'FP = Floating Point' Verarbeitung 
In England hal die Fa. Snfttk wr einigeii Moralsn mil groOem Nun ^ <fcm n™™ Cmaitiler dcr Wuidc cin " n "tai 



li. [Ilt -raL'.ii: ;.m IS* -fi imp I Ir-'i 






JetSet Willy -l ! "SSZZ SZX.ISfSSL APPLEJAM 

FardtnZXSpM,™ SK p '„„„„„„„. ZX Sp.Cr.rn 48 K 





HOUSE 



BONGO 

Begleiten Sie Bongo, die Super- 
maus, auf der Suche nach den 
Diamanten der Prinzessin. 
6 Bilder, jS. ^A 

VC-20(+16K)C-64 3H." 

SPACE PILOT 

Flugzeugkampf, 60 K. 
Die Nr. 1 in England! 

C-64 JSj.- 



USHER 

Die brandneue, spannende 
Mischung aus Adventure und 
Actionspiel. Entdecken Sie das 
Geheimnis des Hauses Usher. 
JS.C-64 39.- 



GALAXY 

In immer neuen Wellen sturzen 
sich Galagas auf Sie, die Sie ent- 
fiihren oder vernithten wollen. 

JS.TA. ._ 

C-64 JSlj.- 

STAR DEFENDER 

Retten Sie Menschen vor der Ent- 
fuhrung! Achten Sie auf Lander, 
Mutanten, Stargate... —%*% 
JS.TA. VC-20(+16K) Jsf ■- 



GRANDMASTER 

Das starkste Schachprogramm VC-20 jm n 
furHomecomputer.TA. (+8K) *I3I." 



C-64 



79.- 



JS = Joystick, TA = Ta statu r. Alle Spiele 1 00% Maschinensprache. Lief erung auf (Cas- 
sette oder Diskette mit deutscher Anleitung. Preise ind. M eh rwe listener zuzuglidi 

DM 5.- Porto und Verpackung. Versa nd gegen Nachnahme oder Vorkasse. 

Viele weitere Spitzen-Programme (Spiele, Utilities, Geschaftsprogramme} 
finden Sie in unserem Farb-Katalog 2/84 (DM 2.- Sdiutzgebuhr) 



Programmierer gesucht! Handleranfragen erwiinscht! 



HARDWARE 

Joystick Quickshot II m. Dauerfeuer 39.- .... Paar69.- 

VC-20 32 K-RAM-Modul schaltbar 179.- 

16 K-RAM-Modul (auf 32 K-RAM erweiterbar) .... 129. 

ZusatzlkherSteckplatzbeim16K/32K-Modul 20.- 

Modulbox rn. 3 Steckplatzen + 2 EPROM-Sockeln . 89.- 
C-64 Koala-Pad Graf ik-Tablett 



6 KINGSOFT 
»Play it again« 



FRITZ SCHAFER 

Schnackebusch 4 
5106 Roetgen 



it Diskette + deutscher Anleitung 269.- Tel. 24 08/83 19 



Computer Kogtgjg 6-7^84 



BERICHT 



Meine Computer: 
DRAGON 32 und 64 




Der sprechende ATARI-Computer 




lflge durvhfllhrcn raiic! 



■Vmind 



Computer Konlakt 6-7/84 



PROGRAMME '•' 



ir.' '"■ , 



r; 



PROGRAMME 



PYRAMTOE 

Fiir den ZX Specimm 16/48 K 

i Spiel .Pyiamidc. *UJie p 







COWBOY 



Terra 



A 






ITi>blr^& sind Volleyball* 



iomputer Kontakt 6-7/84 



Fledermaus 

Fur den ZX 81 mit 16K 



PROGRAMMER 



ab StittM 
ab Srite33 
ab Seite.U 
au I Sate 45 



Vieijahrige lernen Buchstabenplot 
am Computer Filr APPLE u 

Nam Kinder zwschen vier and un j Klimpalibli; 



eiElC'l uber die Gvafikmiig- 
zn Anlaap^erfolg^ii aul dem 



ifi~lnT 



| Car Drive 

>ielfiirdenTI99 
^tended Basic 



•V -I 



\M„UM 



odcrHGRJJiuli 
e^n 2. Shape-AJphabi 



.A. iK.ill'ri-i. 



S.C.O.U.T.-Duell 



nbeibEstcnlautliiticMOg- 
es maglKh. ZcithcatHten 



Rem Revers 



DRAGON 32 



FRED FRANKE 



) CLS3IPRINT 



2 FRrNTsaao.-LEycL ? 1-2-3-; 

3 I*-INKEY*!IF I*="THEN 13 

1 IF I*-" 1 "THEN YE=1 ELSE IF I*=-2-THEN UE-; 

3 IF UE = 1 THEN PRINT5360. ■??? ANFACNliD; ■'-■' 

i IF YE=2 THEN PRINTSSdO, ■ ?? WAS SOLL DBS 

' XF YE=3 THEN PPINT5360. 'LEEENSMLEDE ????■; 

3 IF R5=l THEN 3S 

' B"l:P-100!D=16!Z-2t 

) E=150!R-255!LP-652BD 



22 data 8Et06, oo.Ai.no. 43. a; 

DATA 8i.3F,P.7.FF.23.Ci.0[ 
24 DATA FF.airF4.7F,FFiEA,C! 
3 FOR F-32000TO32057!READ t 



j'eMirni.iooESBhiDD.ionFSBnico.iooGSPMioo.iooHS^FOR F=95TOi05STEP2r preset; 

92r92>-<iaa,108>,E'.G 

;:DRAWBM1O0,)00R5L1OR5U5D10 , 1CIRCLE<P.P)t6:GET195t95>-1 105.1 05). K.G 
i[CIRCLE<P.P).4:PAINT(P.P):PR£SETC9a.P){ PRESET* 102.P) 
34 DRAWeM10Q-ll!ODlDG5E5FSEirtl00.11DH3U3eMlD0.110E3Ua-:EET(a6fS4)-<110riie).UH>G 
;creeni.i:pclso 
BORSUIRSNUIRSDIReFSRlDFBRIUIR'H)'!:;! L:..' :■■:..' i'!':v iF.v:[)R20R;?DRANU?Ri<>U9R2ll " 

IAR4UAL2l!ZRlOD2LZ[>6R6IJ9RiaU7R6U2RBNU1R0DAR6i::SfiBF8R6NU9R4U2R1U2R4 
illRHDaRS' 

33 FOR ST-GTa3+E:PBETCRND(R)iRND<E>,5>:N£XT 
39 IF TR=1THEN RETURN 



FF VE-3 THEN 11=3 
"OR F=a TO 140 STEP B 

45 x=JOYS , n«(0)! , i-'=.Jt)vs , r , i:( l 



59 FOR L=iTQ10:F'UTCA,F)--<A-.Z,FtZ>,LIW.PRESET!EXEC320l 

sosc-ioiif sc<=o then sc-o 

GOTO 40 
F'OKE32043>9OtE>:EC326i4 



Computer KontaKt 6-7/84 DRAGON 32 ^ 



44 IF XX>0 AND ttf«**S AND YY>F AND YY<F+3 THEN FOB F-31T01STEP-1 iPSETIXXn 

YY+RNO(D).5):F'LAVDiT2iiOLSOoy+STft*(F>-"ii2ii":NEXT:puTixx,YY)-<x>;-n)TyY+t 

ET[!jC=SCHi0!PL.flY-U31 , iGaS!JBB9iRPTO10 

45 TU->TU*1 

44 IF TU=P THEN POKE32030. 90 :P0KE320t3,90 :EXEC32011 SEXEC32014 SEXEC32014 
47 IF TU-P THEN PDKE32fJ30.Z55:EXEC3ZI)14 

46 IF TU=P THEN POKE32B30 . 90 IEXEC32014 



R9U5L3BM+4. + SUllR9DlllJ5L9BM+l2.t5UllM+4i+7M+4.-7DllBR1NR9U 
1R4FD4GL4R 



7? 


RETURN 






73 


DRIKWBM7A 


10DNR5 


M1R9U5L3BM+4.+ 


5NR7U&R9" 






71 


DRAWErll+5. 


♦2E2R5 


■D9GI.!3HtJ9BH+llr 


■ 


3. + 5* 
fflt-OtTU-fl 






77 


CLE i PRINT? 


iSTEP 
PRINT 


-5!SOIJN0 G.1!NE 




PRINTSPRINT- LEVEL I "SUE 




PRINTiPRII 






811 


SC-li:B=ltP 


RINT- 1 


=SC 

HI-SCORE ! "iHI 


ez 


FOR F-31T0 


13TEP- 


!PLAY , 01T255L2 



B9 IF Ei>3 THEN B=RND<3> 

90 IF SC=P THEN B^B+liRETURN 

91 IF SC=2*P then b=b+i:return 

92 IF SC=3*P THEN B=3!RETURN 

93 IF S0399THEN B=3:srj=sc+P 



9 TR=i:GOSUB35!TR-0:ft=RND<23fl) 

00 FOR F-0TO14HSTEP B 

01 X=.JOYSTK(0)JY~JOYSTK(1J 

02 XX*X>4!YY"=Y*2.s:IF YYJ-142THEN YY-lt: 

03 PUT(A.F)-IAH4.F+1<J).BL>PSET 



PEEK < LP) -254 THEN EXEC3KC 



■ pseTSh-XEUSZiioosPL.flY'CfeBCflfCE;:' :l; 



BET !LINE< 110. 144 >-< XX. YY>. PRESET IS0UND255.1 
I YY>F AND YY<F*10 THEM FOR FF=1TC) Z:PSET<XX+RND<C>.YY 

, UT<fl.F)-(fl+0pF+0>rEL.F'SET:SC=-F.-:i"t5(it<>,.-=i-(»JE>(' I ;3i)) ! Ci'iS if Hi 1 / 



..:■■:. :.,.-. >.■ ■ 



DRAGON 32 -'■ 



Aus Lottotip wird Lottotik 

Die Fortsetzung iius Heft 5/84 - fiir den Dragon .12 






in. W™ilJil.HtlW:ldd.1!,Bllil![CS< 






































r r„i: : ^-> 1 ,r-.M. 1 ',..I.T ? l.:iL-.. 


ncn lutell Hcinie.! 



Computer Kontakt 6-T/BA 



DRAGON 32 as 








I PEEK (p£eK lS3a»»25B*PEE 



ilat BASIC-Proprao 









HLS-SOFT 



CBM-64 




Computer KontaM 0-7/84 



Car Race 






10 SETCOLOR 


4 4! SETCOLOR 2 4 
















40 RESTORE 






SO CHSET= (PEEK (106) -81*256: CH0RG=37344 






























OV-E CHPOS-J.fl 




120 NEXT J.-r. 


EXT I 




510 GRflPHICE 


2+I6ieETC0LOR 4,7.2:5ETCQL0R 2,7,2:5ETC0L0R 0,4,6: 


JETCOLOR 1,0 
















540 POSIT 101 


I'Xl *i 


■'">>>>">>«<«<««- 




550 POSITIOH 












"clement cCRTL K> careten" 












59n FGr'un'T 


td'toInext'u*"" StSrt " 






0.0:- «6,-- -.'<««:« »»»» " 










620 FDR U=f 






640 HEM PEEK 


mum** THEN 52 ° 




660 SETCQLOf. 


4,0,4:SETCQLOR 2,0,4 




690 POKE 756 


|cH5ET/2B6 


























































770 ON A BOSUB 1210,1240,1270,1310 






















830 S-STICfcl 


0) 




B50 D4-D3:D3 


-D2:D2=DliDl=D 






:o^o THEN U=2 




















9O0 POSITION 














AND N*10 OR G<260 AND N=<? OR G-:360 AND N=8 THEN PR 








































990 FOR SO=l 


TO 255 STEP 8 





Computer Korit.v ■■. 



COMPUTER-BUCHVERSAND 27 




MT Atari Assemb 


er 


Dt'rE03I 
Assembler 




jfasjisa 




w Sz?£r 


ZS£? 



m 




m 



COMPUTER-BUCHVERSAND a 



Das Interface Ags ! 



■illliilllii 



Basic-Kurt IQrBeglnn 




I 






■aiilfiy.ii 







Klaua-Jurgen Schmidt /Geoig- ?: 
Splelen, Lernen, Arbettsn 
mitdemTIMMA 




N| 




64 



uuiviru i tn-pm-nvertaMPiu a 






H U EB EB SO FTWARE TASCHENBUCH 
Spiels fur Ihren Dragon 32 
Splele fur Ihren ZX Spectrum 




is Sinclair Spectrum R( 






BtelBtomS 


BUCH-BESTELLKAR 


rE 











































































10 „ 
















1030 


NEXT SO"" 






1040 


SOUND 0,0,0,0: SOUND ! . , , 0. SOUND 2,0 


O,0 




1060 


GRAPHICS 2+16:SETCQL0R 4 . 12,4; SETCOLO 


2, 


2,4 




POSITION 1,5:? #6;"G A M E □ V E R" 
























FOR W-l TO 3:NEXT W 














1120 


NEXT C 






1140 


GRAPHICS 2+16:5ETCQLDR 4 , 1 ,4: 5ETCCL0R 


2,1 


4:SETC0LDR 0,0,10 




POSITION 4,3:? tt6; "SCORE : " ; 6 






IIS 








POSITION 4,9:? #6; "PRESS BUTTON" 
IF STRIG<0>00 THEN 11S0 








Car Race 




REM RENHSTfiECKE 








1230 








Ein Spiel fur den Alari 












1250 


IF X>27 THEN X=X-2:G0T0 1320 






SS^ **n 


1300 


POSITION X+N-2.2':? " S '" i RE. TURN 






™imrSc n ^U"nopfc^ 




IF X< 1 THEN X=X+2.-G0TD 1290 








! 3 30 


POSITION X+N-2?23:^"^S":X-X-2: RETURN 






e» talnXI^™ 


too: 


DATA 0,0,248, 129, 191, 191,63,63 
DATS 224,248,26,6.6,2,3,3 






'":::f. 


700' 






^^ffir™SoMKSlu»°i!)n°n«H 






















7007 


DATA 4,0,0,16,64,8,160,64 






Hier rati Einc BrtUnwe zuro L 


!E 


2 REM > (c) 19B1 by < 






£"""•• 


!0O< 


4 REM '-'>" CLE cc N Iraaucts TErJ *<- 








XitTL M> - ORTL -Taste +M 






looo 


6 REM --> CLEMENS LINOWSKI <-" 








Wir daoken alien 


Sooo 


7 REM -> REICHENBERGERSTR. 67 <- 

8 REM > 69BO UERTHEIM < 








unseren freien 












Mitaibei torn fiir lint 












uitkriiftigc 




1 r EM — > BERLINER RINS 123 < — 










38 


2 REM > 69B0 WERTHEIM < 








Untcrstutzung. 




Die Redaktion 



MECKERECKEJ 



Scheinbar hat ■iemwd elwas znm Mevkern. Anf imam 
Aufrui" in der lefzten Amgabe hat sick nocb nicmand gemel 
del. Gibl N denn kcine Problem* mit den Herstellern, dti 
Sofnvarelieferaiicen, beim Reparaturscmce Oder sonstii 

Leole sehrelbt uns Meekerbricft, damll elwas Ffefler in di 



Computer Koragj 



Zeikn-Dclete-I lilitv 



10 DIM M3(3O0),NS(2O) 

20 Mt(l,Bl>"? TT64-DELET2: Zeilen vor 

EMtK'lliuEU'it" 




C64 



G0T05 

1 ** DUELL - BY R.rjITTRICH/S.C.rr.U.T. 1984 

2 ** JOYSTICKS IN PORT 1+2 

i ** ZIEL ; DEH GEGNER BLOCKIEREN 

4 ** SPIEL UEBER 9 RUNDEN 

5 PPINT"^B»lil1DrlENT BITTES" 
19 RERBPI-IFHC0THEN30 

29 P0KE49132+I-R: 1=1+1 : GMJ+fi : PR INT "MMKM" 1450-1" II "-GOTOie 

30 ftETOB: IFRO-OGRIOETHEUPRINT'TRTR-FEHLER'^STOP 
40 PRIHy'OWIS.C.O.U.T.-IrijeLL SV R.DITTRICH" 

59 PRINT-KWES EMPFIEHL.T SICH, DRS SPIEL ABSOLUT" 

60 PRIHT"OKEZUSPElCHERN, UM E.3 SCNELJ-ER LADEN" 

?Z FR1NT"!»EII KOENHEN, DIES .• :<■ NRCH-" 

96 PRIMT'MIDEM SICH BER COMPUTER WIEDER MIT " 

90 PRIMT"»I'RERIIV.- GEMELDET HHT. EflZLI GIBT rtRN" 

106 PRINr'fflERNN EINFRCH 'SHVE".iCHR*(34> j "S.C.O. U. T-DUELL"; CHRf <34?"'" 

116 PRlNfOEIN. NRCH ERMEUTEn LADEN KRNN DRS SPIEL" 

128 PRINT"H1IT 'RUN" GESTflRTET WERBEN. " 

136 PRINT"HWI3HIT fl KEV!" 'P0KE198, : WRIT138, 1 ; P0KE198, 8 

140 PRINT":»M»EFr45, 128 ^ PF46, 13: SVS49152«" POI. -. . ■ ;=■&', 1 EHV 

141 DflTR169,42, 162, 1.93 133,35,134,96-169-170,162,197,133.90,134.31,169.0 

142 BRTR162,8, 133.49, 134,56,169, 126,162, 13-133.88,134,69,32.191,163.76,102 

143 rjP,TR254,0,B,0,0,0,ll,8,10,8, 158,58,43,54,49,8,0,0,32,228,11,32, 108,19 

144 DPTR32,175, 10, 32, 222,3 , 32 ■ 142,8,32, 193, 8, 76-25, 8,234 . 2 34, 2 34, 246, 43.246 

145 BRTR45,208, 4, 246, 44 , 246, 46, 76, 1 19,8, 2.34, 234, 23" 1 , !S1 , 43, 208 ■ 4, 214, 44, 214 
145 DRTR46, 214, 43,214, 45, 76, 119,8,234-24, 181,43, 105-40,149,43,24,181,45,105 

147 tRTR40, 149, 45, 144- 4 ,246. 44, 246, 46, 76, 119, 8,234, 2: -A. 2 34, 23* .'36 131,43 

148 DRTR233, 48, 149, 43, 56, 181 -45, 233, 40, 149. 45, 176-4,214,44,214-46.76,119 

149 DRTR8, 161, 43, 201, 32, 240- 3, 76, 4. 9, 139, 176, 2, 123, 43. 18?, 177,2, 129,45,32 
153 DHTR254-S-96. 169,32, 141,0,212,341,5,212-141,4,212-169, 16,141-1,212,169 

151 DRTR15, 141-6,212, 141,24,212,169-33- 141,4,212,173,8,220,201.127-240.7 

152 URTR201, 11 1,240.3, 141.186,2, 173, 186, 2, 1 62. f, "b . 215, 3. 32. 238-8- 173, 1, 228 

153 DflTR23 :■•■-, 3, 14!, 187,2,173, 187, 2, 162, ?, 234, 234,234 

154 DRTH234.234, 169,0,74, 144- 4, 280, 76, 222.8,185-132,0, 141,184,2, 108-184,2 

. : .' ::■■'■:: ■. ■ ■■ : .:■; ' ■ ■"■ . : - ■ ..- .■ ■ ■ ■ ■■■ ■■ ■'..■ ■ ■ : •■ ■ ■ ,..-■ 

156 IFTR2. ■;■■■■;, !?'g, 2, 16G, 12, 169,0-141,4,212,140,5,212,141,6,212 

157 DRTR148, 1,212, 169,129,141.4,212-148,32-203, 152,73,255,41,15,141,33,238 

.-:■■■ 288-232, 142,33-238,162 

159 DRTR12, 134,2,3 J, 157,207, 7, 169 

160 DHTR14, 137- 207- 219, 202, 203. 242, 162, 25, 134, 2, 32, 234, 232, 133 2:203,243 

161 DRTR162,6, 183, 39, 16-157, 32, 5-157, 45, 5,1-: .217,262 

162 DRTfl2<' :■■..:.: 33 ■ 30 ■ 142, 40. 5, 140,53-5, 169, 7, 141 ,40,217, 141 . 53.217 

163 BRTH173, 183,2,9,43,141, 116,5,173,178,2.9,43,141, 129-5,169,8-141-116,217 

164 DRTR141, 129-217,32,254,11,234,234,56,173,178.2,109,183,2,201,18,240,45 

165 BRTH3, 48, 163, 162, 7, 139, 46, 16, 157, 23,6, 163-13, 157, 23. 21-3, 202, 208, 242, 140 

166 nPTR30,6, 169-8,133,2-162,8,160.0-136,20!; . ..-203,242 

167 EFTR104, 184, 76, 22,8. 76,3, 12, 169-5,133,44,133,49,24,105,212,133,46,133 

3TR51, 169, 198, 133,43, 133,45,169.210,133,48, 133,50,163-113,162,251,141 

169 DPTR136,2, 142, 187, 2, 32,68,229, 162,40, 160,0, 163,35, 153-0,4, 153, 192,7, 169 

170 BHTflS, 153-0,216, 153,192.219,200,202,208,236-169,8, 133-249,133-247-169 

171 DRTR4-133. 250, 13-3, 21c. 133, 243162. 23. ;-.- '5,249,169,5,143 

172 DRTR2- "5, 145,249,169,5,145,247, 165,247.-34. 105.40. 133,247 

173 DRTR24, 165, 249, 105, 46, 133, 249. 176, 6, 202, 288-217-76,93- 10, 230, 243, 230 

174 BRTH250, 76, 80, 18- 162, 8 3., 1 42, 33, 208, 96, 234. 234,234. 234, 234 

175 DRTfll 69, 42, 141, 176, 2. 163. 31, 14 1.181, 2, 169, 8, 141, 4, 212, 141, 5- 212- 141,6 

176 DRTR212. 141, 178-2, 141, 183,2, 133,2, 169, 15, 141,24,212-162-3, 142, 177,2,232 

177 DRTR142, 182,2,162,3,169-53,16,149,:: 

178 DRTR234, 234.. i : :4, 234, 23-1 3 i-i, 234, 234- 162, 10, 189,255. 15, 157,255,4, 169, IB 

179 DflTfilt: 238,242,162, 8,189, II, 16,137. 80-5, 163, 11, 157, 88-217 
■.■:■:■ : ■■■■■■■. ■/■ ; ■ . :■:,;.: :,;,:.;;, , , ,. : .■ .-. ■ ■. ■ . . ■:: ■ ; ■■ ■ ■ ■ ■ . ■; ;■ - 
181 BRTP232, 142,258, 7.232, 142- 25!.. 7- 169, 2, 141 , 16, 2^8, ■ Vj,3. !4i .?■ .203,162 

'R24. 160, 140, 142, 0,208, 140, 1,208, 162, 64, 160, 140, 142, 2, 208. 140,3-288 

. .■■■•■Hi- .3. 134,2.162-0, 160,8, 136, 283,253,282- 288- 24-; . 1 ■<-■ ■ ■- ■ -■33. ; 4 2, 162 

134 EflTfl43, 160, 140,142,4,208, 148,5,208.162.40,160,140,142,6,203,14g-7,208 



C64 



i CRTR1 69, 10, 141. 16- 203. 169, 15. 141, 3, 212, 169. 20. 141, 1.212,169,15,141,24 
I DRTR212.141,2!,2DS. 16?.. 12?, 141.4,212, 162, 40, 233 . 4, 208 . 236, 6 . 233 . 1 68 . g 
' IiRTR136,208,253,202,208,242,169, 2, 141, 16,208, 162,84.238,4,203,206,6,20- 
S BRTR160,0, 136,208,253,202.203,242,165,0,141 .21,208, 162,5,189,21, 16,157 
i n6TR210,7, 16?. i ':. 15" 

i EflTfl0,212, 141, 1,212, 141,4,212, 141,6,212, 176 16?, 15, 141 ,5, 212, 141 ,24,212 
. HRTfll6?,20, 133,2, 142. I .2) 2, IS?, 15, 141., 5.. 212, 234, 234, 141 , 24,212. 16?, 33 
'. ERTfll41,4,212. 153, 2, 245:, 23, 160,0, 136, 208,253,232,293,226. 169, 0, 141 ,4 
S ERTR212, 141.24,21^.32.254, 11 , £'34 • 234. 36-234 , ~2, I 38, 72 ■ 32- 234, 232, 163 
: BflTK20, 133,2.104. I 70, 13-1,76. 182. 11,234 M..Z34.Z34 .234,234,234,162.0 
) BflTR139.35, 12-157,255, 14, 202,203,247, 162, 61 , 13?, 31 , 12, 157, 255, 15, 202 
; DflTR203,24- 22?, ?6, 163,13, 1 If- 1 1 

■ IfflHS. 133.43, 134,44, 16?. 128, 162, 13, 133,45,134,46,76, 102,254,0,0,0,0,0 
f DRTR 19, 46, 3, 46, 15.46.21 .46.26,46,32.32, 16,13,5. 19,5, 14,20.19,32,32.4 
' DRTR21.5.12, 12.0.6,131 .166, 1 4.- , 1 6£, 12? ■ 16?- 147. 160 136 163, 160, 16, 12 
t CRTR 1.23, 5. 18, 0.18, 15, 21, 14, 4, 32, 32, 96, £:- 53-37,122 12: ■ : :." . ' 22 ■ i ■ 

DRTR0, 0,0, 6, 3. 0,6,0. 0,0. 0,0. 0,0,0,0, 0,0, 0,0, 0,0, 0,48, 0,3, 27, 255, 255, 15 
! TJRTR255, 255. 7, 255, 245", 3.255.243. 15, 255, U, 31 , 213, ■ 63, 143 . '3. 63,254, 0, 127 
: DRTR0, 0.127, 0.0, 254, 0,0, 254, 6,0, 0,0, 0.9, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
: I-kIRO, 0.0,5-, 0.6, 192.0,'?. 255, 235, 216, 255, 255, 240, 15,2-55,224,15,255,132 
: DRTR0.255, 240, 0,219,248, 0,241,252,0, 127.252,0 3,254 3, . 254,6,0, 127.0 
: ERTR0, 1 27, 0,0, 0,0, 0,0, 0,0, 0,0, 0,8, 0,5). 3. 3, 00. 6, 6,6,0,0,0,0,6,123,0,0 
' EiHTH;i:54,0,0, t35- 0,(3, 254, 0,0,1 2S,B,e, 0,8, 0,0, 0,0 .8,0 3, £', 0, 6, 0,0, 0,0,0 
■■ IiHT J -0.0,C.'.0.i.'.3 0. 0,0. 0-0. 0,0,0, 0,0, 0,0, 0,6, 0,0, 0.0, 0,0. 0,0, 0.0. 0,0,0 
' EflTfiD, 1,6,0. 127,0.0,255.0,0,127,0,0. 1,0,0,0.0.0.0,0 O f, 0, 0, 0, 6, 0. 0, 
r riRTP0.0,0,0.0,0,0 0,0,0.00,0.0 0,0.0.0,0,0,0,0.0,0,0,0.0,0,0.0,0.0,0 

WTflti, 0,0.0, 0,0, 8,-150017, 1459 

** ** ** ** ** .** *"4 ++ *>. *:#. ** +* ** ft *» :*■+ ft *>■ t* *+ *# *# #* 

STEUERZEICHEU : "iT -CLEAR SCREEN 

"XT' -CURSOR BOUH "3"-'CTRL'+'7' 

"""-CURSOR RIGHT " a"-F4i VERSE DM 

"ir-CURSOR LEFT "■"-REVERSE OFF 

"yCURStjR HOME "Pr"-P + ShiftO 



Demonstml ion der Routine 



Computer Kontakt 6- 



Leserbriefe ^ 



LESERBRIEFE 



Leutc sehickt mehr 
Leserbriefe, 
daiui stcht 
hier mehr I! 



Raubkopierer leben gefah rlicli 



Xngdsiiflk 
;!■ lul-= d, 



.macheo.dicdurcl] '™' * 



HE"; "MDTORKUEHLUNG . ' 



M ;"GRQE5SER I 



DIE": "ERWflERMUNG [ 

I PRINT 

: LDESEN**": "PRESS 



i MOTDRBt-OCKfi , 



330 CALL COLOR 
340 CALL COLQR 
350 CALL COLOR 



5 5 IS CALL CHAR 



0000FFFFFFFF0000 N I 

0B00F0FBFCFC; 
'000EI0F1F3F3F3E3C 1 



E 7E7 E 7E 70 000 000 ' 



000 0FFFF FFFF0000 
6 092 F 6FCF BF0F 000 ' 
772 27FF 97F2277B0 



UB3C7E7E3C1B00 1 
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640 FOR 1-1 TD 32 












660 CALL HCH«R(J,K,L,1> 
























700 CALL HCHAR(A,B,C,D) 












720 RESTORE 






730 SOTO B80 






22,99,3 


























































29,100,7, ' * 




















7.2S.IB1 u ^ 






98 12 96 20 "7 103 IB 




03 








,63,5,4,0 


















20, 3, BO, 1 ' ' 












?6,S2,1,2 ' ' ' ' " ' ' ' 
























aSO GS=40*QY*10 );'nD=0 :: PKT-0 :: TR=0 


■ ftU-S 






















920 CALL KEY(B,K,S> 






930 IF $-a THEN 920 
























970 CALL CGL0R!12,15,2> 






9S0 CALL C0L0RU3,15,2> 






















CALL DELSPRITE(tU) 


1020 RD^RD-4-1 :: IF RD>15 THEN 1230 :: CAL 


~ SPRITE <»1 




1430 i: CALL SOUND (SO , I 10 , 0) 






1030 CALL POSITIONHtl.Zl.Sl):: IF Il»12 


3R ZK96 THE 




lOw'lp'i-B THEN 1060 ELBE IF X>0 AND Sl< 


20 THEN BOS 


UB 1310 ELSE IF X< 








72 THEN GOSUE 1360 ELSE 1060 
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1060 RANDOMIZ 


















, SI, 0,68) 






laMCflLt/ros 




52 THEM 1120 :: CALL JO 


YST < 1 , X , Y 






1090 IF Y-B T 


EN 1110 ELSE IF Y>0 AND Zl>16 THE 


1 GOSUB 1360 ELSE IF Y<0 


a^THEN'GOSUB 


310 ELSE 1110 
















'Fi£i\Z 


THEN 10B0 :-. CALL DELSFRITE (#1 1 : : 


CALL SPRITE(#1,123,7,Z1 


1130 CALL POS 


TIONISI, 21,31)11 IF ZKSB Oft Zl>9 


h THEN 1178 ■■ CALL JOYS 










EN 1160 ELSE IF X>0 AND SK224 TH 




17* N then ; gosii 


1300 ELSE 1160 






TIONtttl,Zl,Sl):; COLL LOCATE (#1,2 








(70-D1), (126-011) 




THEN 1130 :i CALL DELSPP, I TE (#1 1 : : 
















TION[ttl,Zl,Sl>;i IF S1>16S Oft Sl< 




YST(1,X,Y 






tHii*™ 


1350 ELSE 1210 


EN GOSUE 1300 ELSE IF Y< 












(70-D1) , (166+D1)) 


1220 6DTD 1010 






ALL CaLUR<12,7,2> : : CALL COLORtl? 












(4»BS/10)TKEN 1260 ELSE SS-BS+5 






11 TR-B i: FOR 1=1 TO 7 :: FOR 
















1260 FOB 1-400 TO 110 STEP -10 :: CALL 50UND<-9 


0, I, B, 1*20, 1,1+30, 2):: N 


ALMAIJ-1 : : : OS 


BS-5 :: SOSUB 1400 
























HEN CALL HCHAR (12,20,32, 1 ) ELSE IF 












HEN GOTO 1450 ELSE GOTO 890 






GQ.TO 1320 












:: G2-G2+16 11 G3-G3-16 := G4=G4- 




1330 W1=W1+J6 


:: W2MU2+16 t: W3=W3-16 J[ W4=W4- 


16 


1350 ANM+16 : 


GOTD 1370 












■: G2=G2-16 :: G3-G3+16 a: G4=B4+ 




13Q0 U2=W2-16 


:: W3-W3+16 tl Wfl=W4+16 






R*20+G5*3 :: P*-STR*(PKT>=: LN-LE 




* > : : CALL 












IS StS?" 


THEN GS=20 ELSE IF GS:9B THEN GS= 





COWBOY 




310 CALL KEYCOsKfS):: IF S=0 THE 
N 310 

3£0 CALL CLERR 

330 CRLL SCREEN CI 1> 

340 DISPLAY RTa .2) i 'PLAYER 1: 


so ! ». auam 








PLfiYER £= " 


' 40 ! * HfiPCD 1 LEI 


1 5 3 


350 DISPLAY RT (3. 3) : " " iFl :: DIS 


50 ! - HRFEt.:TP.l£ 


I R 


PLAY RTC.S.El): " 'iPE 




'1* I 


360 CRLL CDLQR (1 0-3. 11J 
370 FOR 1=1 TD 5 
380 X=INT(RNB*£1> + 1 






390 Y=INT(RND*3£> + 1 

400 CALL HCHRRG+3!T.104> 


100 CRLL CLEAR 




110 CRLL SCREENS 




410 HE^T I 


1£0 CRLL CHfiR(51>"3 


4£DBR]A1DE42 


420 FDR 1=1 TQ 5 






430 H=!NT(RNHa£lJ+l 


130 CRLL CHRRQ04.-- 


[I0B3FC3C 18163 


440 Y=INT<RND*32>+1 


£38 "> 




450 CRLL HCHRR(^-t-3iY.105; 




J00OOGLI032AE6 


460 m&r I 


f)3C") 




470 CRLL SPF-ITEi:#l.: 1£.9.S0)3S> 




JJOOQG 1000000 


430 CRLL SPRITE ■:*£■- J3i 5. *0, E24J 


0303 OCjiL-rjurniC ■" & 


jOOOOO'iOOOOOO 


490 CRLL JDYSTC,S::-Y1j : ; IF Ki< 


C<C 0C Qij j ij 'J u CI !J !.-■ Li 




>0 THEN 540 :: CALL HUTtOfttt'-t 


160 CRLL CHRP atfS. " 


0GQ00li03SOFO 


*Yii 0? 


& Ci U i j Ci J iH ti 1 


0F870£0FO7O7 


500 CRLL .JDYST<£.X£.Y£>;: I c *£< 


07070509 0E 09 09 09 OEC 




>0 THEN 570 ii CRLL MOTION C#£>-2 


170 CALL CHAR(!1£." 


ElFOE(.i40FOE0 


*Y£> 0> 


EOE0ELH 


OOGGGOBtCFOO 


510 CRLL KEYa.K.S.isi IF K=1S TH 
EN 600 


ISO CfiLL CHflP(116. M 


300O0H000000 


5£0 CRLL KEY<2.K.S>!! IF t->18 TH 


OrtO[iOu;0:33F4O333F7 


OOGGGifQOOOOO 


EN 720 


fi ft ft n y n n 3 D IS C" flEF TFFF r 




530 GOTO 490 


190 RANDOMIZE 




540 IF Xl=4 THEN 550 ELSE 560 


£00 P1.P£=Q i: Sl=l 




550 31 = 1 :; CALL PATTERN (t=l> 11£) 


l.A2=0 




:: CALL MOTION(#l . 0. 3> : : GOTO 50 


210 CALL CLERR 







££0 CfiLL MAGNIFY (3) 




560 31=0 :: CRLL PATTERN (PI . 1 0© 


230 BISPLRY AT (6* 10 


:"C D O D 


:: CRLL MOTION <#1 . 0i -8> : : SOTO 5 
00 


£40 DISPLAY RTa5,4 


:"PREi:S mt 


570 IF >:£=4 THE!! 530 ELSE 590 


KEY TQ START" 




530 S2=l :: CALL PATTERN <*>£, 1 1£> 


£50 UISPLRY RT(£4.8 


ft MHRCO KL 


:: CALL MOTIONS. 0>3i : : GOTO 51 



Elff" 

£60 FOR 1=1 TO 3 

£70 CRLL iEkiND'.Sfir-, 146-0):: CALL 
SnUNI''.£5- 130.05.-: CRLL SOUND (£ 
5rt. l£3, CO : : CRLL SOUND U£5> 146. 
):: CRLL SOUND (£50) 195. iO 
£R0 CRLL ;C'J!iIK125.£HO.0li: CALL 
SaUNTJ(1000.£46.i:i) :■■ CALL SOUND < 
500.195.0):: CRLL SOUND i2o0.30C"] 
>30J 



6H0 CALL MOTIDNOtl.O.a):: CRLL F 

d:itid;J':«i.r,B) 

610 IF Sl=l THEN 630 

t£0 CRLL SPRITE '.#:■.• !00.£'M-4.E-F 

. 0>-£0):s GOTO 64 

630 CfiLL SPRITE (#3. 100. £>A-4,&+£ 

■ 0.203 

640 FOP 1=1 TO 15 



TI99/VC20 «» 





QBNC <RLL.O: 


IF C THE 








t.SG lhLL 


jDYSTcs.xatre 




□TiofJC#£ 


-£*Y£«£*K£> 




67 MEXT 








BEtSPRITE.l#33 




:: DISPLAY RT<3j£1>: 










cfi'i Cfi' L 


delspf;:te<#3) 




TIDNOR^ 


jO):: CALL PATTERN «£«1 


790 P1=P1+100 i: DISPLRY AT<3-3> 




■■";pi 






=i td eee := 




CRLL PATTERN k#£. IDS): : 


Ai=fil+1 : 








72(i LHLL 


ncniw«2t.&< 


:: CALL P 


□SITIBSt 


£,R,B> 




730 IF S£=l THEN 750 






SPRITE OMitlK 


£.H-4iB-S 


.0.-20; : 


GDTD 76 




750 CALL 


SF811£«§4llO0 


2,A-4-E+8 



760 FDR 1=1 TD 15 



770 CALL CDINCffiLL.C): 
i BID 



IF C THE 
:I CALL « 



7S0 CALL JDViTU-MI: 

DTIDNt#l.-£*Yl>£«S<:i3 

790 NEXT I 

Siii-i i-flLL LELiF-F:ITE<*4:' : : Pl=Fl+£ 

:: BISPUMY AT <3> 3> -HE <J 0>s "°f 

PI :: GDTD 490 

RIU CALL DEL SPRITE (#■=".' ;: CALL t-c 

T lEi'J C#i . O.0>:: CALL PATTERN C*l ■ 1 

lc.> 

SiU F2=F£-U;0 :: [HJPLFtV FIT '13- El 

)!""! P2 

S^O PCJR 1 = 1 TD £0fl :: NEXT I i: 

CALL PATTERN (*1 = 11 £3 :: A£=A2+1 : 

: IF A£=10 THEN 340 :: GDTD 490 

PJC DISPLAY AT t! 0-83 : G A M E - 

OVER'' :: POP 1=1 TD 100 :: HE 

XT I 

850 DISPLAY AT <1 0* 83 : " " " FDR I 

=1 TO 100 :: HEHT I 

SfU CALL KEY':0-i;,S>:: IF £=0 THE 



K £ 



) CALL DELi-PPITEfflLLll! GDTD 2 



Buchstaben schreiben - fiir den VC-20 




Computer Korrtakt 6-7/84 



Jaktuelletermine ,„_,„, 



mSEESlS^iatA^m 


1M-DM W " !9MM 


p^i^S'iJ^^akte. rmw 


M**t> 


^■VHSDO^Worf _, 






ST,™^"" 1 " 


»*»* 






ESSE 


>»«» 



I'mentcr Wig HI, 5*M Pilkti- 




Computer Konisk! w.-wi 



BOMB-PANIC 




i& 


= EM 




1020 


REM BOMB 




iB40 


REM PBKK 




1050 


REM 




!SS 


1 cL!i; 










1130 


REH ML-SOFT 




S 


PRINT "33 

PRINT" | 1 f 1 1 1 

print" a ^ ■ a ■ 
print" a ■ a ■ a ■ 3 9 

PRINT" a ■ .-:■;'■ 

print" as a ■ a ■ 






pRinT"afi" 






print" &r -m av -m sr ■ 8 






PRINT" J! 3 H 2 ■ S) ■ 


a ■ 




print" *a ^» nil a ■ 


a m 




print" as a ■ a ■ am 


a ■ 


ip 


print" -^a *r <«2 w a ■ a 




12^S 


PQKE52 r se lP0KE56,2S :PLX=716S 




i3ea 






IS 


FORJ=S5TCl;2?-:PO|f:E36!3fc5, JiNEtfTJ 
PREHT"flWI <« 1S&4 






PPINT"H COPYRIGHT BY PtL-SOFT 






PRINT"SM=> MARKUS LINOEMflNN <=' 








NE*TJ 




F0S:I^KiTi?5?:i:EftOri!f-Cik£7ire+I,ft:HE«T 




PMHT"H«-TOVSTICK,-'TFlSTfmjR J/T 






GETJT*:IFJT*=""THEN1410 












PRIHT"3" 












DRTR 123,255,255,135,193,195,10 






DRTfl 0, 4,5G . 124 , 1 7:4 , 1 £4 . 56 , 






CFITFt 0, 0,0,255,60 ,126,1 £6, 60 




iH 


! i ■ ■:.■/', 235 




1530 
156© 


PRINT"HfflHB*MMlJ!MOMia'MJHIC 




FORWS=lTG15Ci0iNEKT 






PR I NT "33"; 






PCih-.E3c-.S?'i ,c.eiPOt;E36!37S, i5:PCikEe 










1610 


PRIHT-EEEEEEEEtEEEEE"; 




1646 


=ori=itoi6!PPInt"e||":nes:t 










1670 


IFSl=1"lTHENij0SUB2ie©:POKE:S.32;SOTO1710 
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=lTO£u :f ':iRH-?"4T024&*3 

EXTM.L:FijKE36S77,0 
PRINT"aa KOCH EIl-l SPIEL ? 

geth* i iff*-" "THEN^e4e 



,■=0 :G=0:3i:=C:LL^ii !&=«::<:■:=* :3=Li:F=>: 
3 GOTO 1530 
5 PR I NT "at! HIGHSCuRE " HK ; s 1 FZ2>'3 r.HEHPF: H- 



216B 
REFtD 


3D=3riS4:Pl =37151 :Pt 
P-F'EEKCPa-JnNDlS'SsJli^- 

p=pEEKiLPi:> :J2=-o:pfin 

IFSO25THEH2150 

ir.IO=lTI-[EN;:=^+l :D=1 
IFJ2=1THENX=K-1 :D=-1 
Grj]O2170 

IFJfi^lIHFH!;=:^-l:0=-l 

PRINT"!*" , "3IffiHEIfl5»»J 




T"3' 
--2:F 


:Pi>..E3*863,2 


0iEND 


. 







Elektronikecke 



SelektronikeckeS 



ELEKTRONIKA 
S A A R 

7.9. SEPT. 1984 



Kaufen oder Selbstbau? 



Elektronische 
Universitat 



Zo mputer Kontakt 6-7/S4 



APPLE « 



Buchsiabcnnlot 



"6UCHSTABENPLQT' 
DATUM : 18. B. 1933 
VERSION fuar APPLE II 
GERT-RUEDIGER HELMUS 



DATA I i i 
.EE7-EZEE 



i ; jGGCK , ( i |2(Jli|{!ltI 

>ck; .ilnptli ,?g??"??i ,11 
il<a<li,=aemz=,zky<<l 

'LLI ,Z<=?CKK " " 



DATA ?ELLZLL,YDD 
,YDDDDDY,SKKWKKZ 
NLLJ.LLLZ 

,LMOS0ML,KKKKK.kZ 
DATA 



'■»??, LLLLLLI ,LLLEE?^ 
LLE'ELL.LLE? - ? 

= 1 TO 3?! HEAD £ 



' REM 

3 REM DEMO-ANWENDUNG 

? REM 

)6 HGR : HCQLOR- 3 

35 GG* - M 1 

RSTUUW" : 

I GOSUB 

as gg* = 



- 55; Q0SU8 38 

- "ABBA":GW = 



128: GOSUB 



* CHR* (34; 

2*,-./8 1234^6799: i 

gosub seaee 

1828 GET A»: TEXT : HC 
lft?3 REM 



ENDE DEMO-ANWENDUIJG 
■ BUCHSTABENPLOT 









■HEN SB* •■ MID* <GG*,5,1 




:I* - "8*1 GOTO 38619 












IF ASC < MID* CGG*,GZ, 1 




< 32 OR ASC ( MID* (GG*, 




t)> > ?B THEN 39B4S 




FOR G7 = 1 TO 7:GH* - *" 








1ID* <GG*,GZ,1>> - Stt ,G7 




) - 59 


3B023 


GE = GE / 2: IF GE - INT 




8825 




BH* - " 1 ■ * GH* 


38623 










IF LEN (GH«) < 5 THEN I 




- »B" + GH*: GOTO 38B26 


38B27 


IF I* - "B" THEN HPLOT 



' HPLOT > 
I NEXT G> 



NEXT G2l RETURN 



Bildsehirmvtrschiebung - Ein Hilfspi ogramm fiir den VC-20 



ZX SPECTRUM 46 



Pyramide 



IB LET »ib=0 
20 LET ts=0 
30 LET et=0 
40 LET is=0 
50 LET ic=0 
60 LET tt=0 
70 LET w*9=0 

90 INK ?:"pRPER 0' BORDER 0' C 

100 REM RnfatiS 

110 GO SUB 9900 

120 PRINT ""Der Pharao RAMSEY 
II. 9ibt" 

136 PRINT "dir die ehreffjoile P 
nfsabej der" 

140 PRINT "Erbauer seiner Par am 



■ 20 Jahre 



153 PRINT "Er 9ibt e 
gelt und" 

16B PRINT "die ProviTiZ Kafr-es- 
SaiJit, urn " 
170 PRINT "die flt-beiter zu beso 

lee' PRINT ' PRINT "Wirst du die 
se PiLi.feabe annehnien'?'" 
198 PRINT 

;rn;i for a=e TO 31 

E10 PRINT INK 0J PAPER 6.CHRS 
(INT fRN[»*4)+144i; 
£20 NEXT a 

230 INPUT y* 

246 IF »*»"■ THEN GO TO 330 
256 IF ■=>*'. 1)="N" OR sS(l)="n" T 
HEN GO TO 270 

sea go to 330 

270 REM Nicht bauen woUen 
£80 GO SUE 9080 

258 PRINT : PRINT : PRINT "Der 
Pharao 9ibt nun deivie Hin-" 
388 PRINT Vichtij.nS bekarint. Du. 



330 REM RND 

-48 I |r T P-INT i Rm-"-! ..;■■'■'■ ■ ■■.■■.:■>■ 

358 LET 9-IHT iFK. ■ ■■ '-It'i' 

";b0 LET P*=0- LET Ja-1 

-..;-.. F - f : ;-..-; . f. :; :;.i : .... ;. ,*]i->.c- 

380 LET ab=0' LET te=l 

1080 REM Rnzeiee 

1010 GO SUE 9408 

1628 GO SU8 9960 

1638 PRINT ■ PRINT "PraviTiz ; Ka 

7i -6---SaJat" 

1043 PRINT "Jahr i "; FLRSH 1 i j» 

1B50 PRINT 



1060 PRINT "Eiwohner ■ * if 

1670 PRINT "Speicher ■ "j9 

1080 PRINT "Felder = ";f 

U00 REN Eiri9a.be 

1110 PRINT : PRINT "Uieviele Per 

sonen sollevt znrn Rr-" 

1120 PRINT "bsiten herasi9ezc.9en 

■■'■.■■ ■■■■■ 

1140 IF ab<0 OR ab>P THEN GO TO 
4700 

1156 PRINT ab 
1160 LET p=P-ab 

1176 PRINT : PRINT "Uieviel SPei 
cher Korr. bekOT'iKien" 
1180 PRINT "die flrbeiter zuSetei 



i THEN GO TO 



1210 PRINT ak 
1215 LET 9=9-ak 
1220 PRINT ' PRINT ■ 

1236 PRINT P," ander 

1240 PRINT "zu.9etei' 
li:56 INPUT ek 
126B IF ek<8 OR : 
4700 
1E76 PRINT £k 
1280 LET 9=9-ek 
1290 IF ek >=■■:. p- -■ 1 f 
t=0: GO TO 1400 
1300 LET i 



;>9 THEN GO TO 



1 LET 

1320 LET el= 

1330 LET 

1346 LET 



= iNT <..*[ 
'-el 
-el 
=is+el 
=<ab'19S 
t*=0 ! GO TO 1500 
1418 LET t*»l 
1420 LET al=INT < at 
1436 LET a.I=ab-*I 
1440 LET ab=ab-al 
1450 LET is=i£+al 
i5@o go sue: s?ea 



151 



i LET «*.{*> 



? Fel 



1520 PRINT ' PRINT ' 
der s-ollen bewirt-" 
1538 PRINT "schaftet uerden ?" 
1546 INPUT fb 

155.8 IF fb<0 OR fb>F THEN GO TO 
4700 
156S IF fb<=9*25 THEN GO TO 17B 


1578 LET fb'INT (9*25) 
1580 PRINT i PRINT "Du hast zu u 
ev,i9 saatst'.t. Cm" 
1590 PRINT "k&rvnst nur ";fb 
1600 PRINT "Felder bewirtschafte 

1610 PAUSE 

1620 GO TO 1500 

1790 IF INT <fb*5X=P THEN GO T 

3718 LET fb=INT <P^5> 



ZX SPECTRUM 4B 



720 PRINT ' PRINT a Bu 1 




is Es.isrv,. Du." 




739 PRINT "kmnst rrur 




der beuir-t-" 




740 PRINT "sdhaften." 




750 FP.USE 




760 GO TO 1500 








310 LET P9=INT (. RND*66 




820 LET P9=P9'lO0 




SSl'i GO SUE: S^yO 




840 PRINT ■ PRINT "Die 





J LET n 



!■■ J t f b 



870 REM Rebelli. 

SRO IF et=6 THEN GO TO £006 

890 LET et=0 

'j-K'i rjn sue 3000 

910 PRINT i PRINT "Die Einwohfie 

■ rebtlliere-n ije9e"" 

920 PRINT "NahnjTi9srii9.ii9el.. " 

33B PRINT Pi" Ei-nworivier (0Hne fi 



2130 PRINT "v 

jjtte PFlUSE e 

2280 REM Verz 



[1 nit (torn...." 
;i9un9 2u UviterPr-i 



.. „i>»1 THEN GO SUB 7000 
-;;-;= IF u=2 THEN GO SUB 7980 

:..=? THE:-! BO SUB 7170 
2240 IF w=4 THEN GO SUB 7250 
2250 IF u=5 THEN GO SUB 7340 
2260 IF w=6 THEN GO SUB 7420 
£270 IP w=7 THEN GO SUB 7520 

,,.=S THEN GO SUB 7600 
- ..i-5 THEN TO SUB 7680 
-.-.;:.-: ,r ,.FUn THEN CO SUB 7700 
2297 IF w=ll THEN GO SUB 7910 
£300 PRUSE S 
2310 IF 3b>=100 THEN GO TO 2380 

Z"y>:< go sub 9000 

2333 PRINT : PRINT "Du hast zuue 
2340 PRINT "Eaueri. . . ." 



:-:■ !;- ■ 

740" IF te< = l THEN LET rib=< ab/S 
8090)' GO TO 2420 



2418 LET nb=<: ab>70090 > 

2438 CLS 

2448 LET te=te+nb 

2450 FOR i=33 TO 40-te STEP -1 

-4,:i-' IF i<13 THEN GO TO 5000 

2470 LET x=39-i 

2480 LET xi=i 

2430 NEXT i 

2*00 IF f>=588 THEN GO TO 2680 

25 10 GO SUB 9900 

252(! PRINT • PRINT "Dai BauerSeb 

SUB 99B0 
>•;.:(! PRINT = PRINT "D'.i rtiinierst 

ga alleS.Der Pharao" 
2550 PRINT "uerFlucht dich uvid d 

jj-T-^'pRINT "Pmubis hat einen neu 
*r. riasft......" 

j-.?,:i PAUSE 

?m% GO TO 4808 

260Q REM Jahresberictit 

26'0 GO SUB 3900 

2620 PRINT • PRINT < PRINT INVE 

F:SE 1; " JahresberiCrtt" 

2--'.W IF ;i;.+t- >=68008 THEN GO TO 

2700 

2635 REM Revolution 

2640 PRINT : PRINT "Die Einwchms 



■ lei 



Eii 



■ Revulotn 



2650 PRINT ' 

1st die" 

2660 PRINT "Folee. ["J. stirbst sc 
hmjchvoll. . . " 
267R PAUSE 
££30 GO SUB 4300 
2700 LET Ja=Ja+l 

2710 IF JiOll THEN GO TO 2749 
272B PRINT ■■ PRINT "Das tl-te Ja 
hr bricht an. Die" 
2730 PRINT "Haelfte deinei- Zeit 
ist U.KI." 

2740 LET Yiw=INT <t 1800*te >*RND>+ 
1 

2750 PRINT - PRINT nw+dazu.; " Neu 
e Einwohner S-«raer< die-" 
2768 PRINT "ses Jahr in unsere P 

2779 LET'-nt=INT (<408*te >*RNDH1 
27B0 PRINT ■ PRINT nt*we9+tt; " E 

2790 PRINT "Jahr " 

2800 LET P=P+nui 

2810 LET p=P-nt 

2S20 LET tt=8 

2830 LET we 9=0 

2840 LET dazU-0 

4080 IF Ja<=28 THEN GO TO 4160 

4810 REM NicVit Seschafft 

4820 GO SUB 9800 

4830 PRINT ■■ PRINT "DU hast rach 



20 --.. - - 
4048 PRINT INT (te*10-l 
n der Pyramid* f>i-ti9-" 
4050 PRINT "gestellt. Deswe^ 
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4070 GO TO 480S 
4193 LET is=is+y>t 
411B LET ie=ie+n„, 
4120 PRINT i PRINT ' 



4160 GO TO 1006 
■ ■ R&l Fehter 
4710 GO SUB 908B 

4730 PRINT ■ PRIH1 



4740 PRINT " 
d wirst" 
4750 PRINT " 



"Fehler liebt 

"i (MftGMtan un 
l-iinserichtet 



4760 GO TO 4800 

4800 IF te>27 THEN LET I 

481B PRUSE 

4S3.0 GO S'J8 9400 

4830 CLEMR 

4840 INPUT "Moch «lr, SF'i« 



£=27 



1 IF s*=' 



1 OR , 



4860 STOP 

5080 REM Geschafft 

5010 GO SUE 9909 

5020 PRINT • PRINT > PRINT ■ 

3.Bt *s= 9e-3chafft.DiL hast dit 

5030 PRINT ■ PRINT "Psi-?..,id€ 

au.t.Dir wird nun die" 

-,040 FRUIT : PRINT "Ehre zu\ 

mlt unserero Pharao" 

5050 PRINT ! PRINT "darin be 



5070 GO SUB 900O 
■riSofi GO SUE; 3300 
"5098^ PRINT ""Tut mil- furchtbar- 

5100 GO TO 4809 

7900 P.EM Bifschlaanahmuns 

7005 LET kl3L.= lNT CifPH&Jtl 
7010 GO SUE: 9900 

?0:?0 PRINT : F'RINT "L>is Printer 
d?= Totensottes" 
,''"■.■0 print "Hnubi^ beschUSnahme 



1 ifcUv 



7040 F 



1 voll n 



?059 LET 9=5-klau 

7860 RETURN 

7080 REM Kreuzrltter 

7030 LET klau=INT < *V3#RND >-H 

"100 GO SUE: ?0gp 

7U0 print • print "£infali*atfe 



7130 FFINT "schl 

"■ Feldec" 

7130 PRINT "ur.s-p, 



i.tUnde; 



ZX SPECTRUM 



7170 REM Somterstei 



i=INT ( 150*RN[O 



7209 PRINT = PRINT "E: 
teufr sr-br-achte "ioib 

7210 PRINT "SF-eicher i 



ill I 



7220 LET 9=9+9ib 
7230 RETURN 

7350 REM Pharao schenkt 
7260 LET 9ib=IHT CRND*1000> 

".:■" '■■:.-■ r- -. ■■-. 

73SU PRINT = PRINT "Der Phar; 



ill* 



7330 PRINT ' 

is- » jsifc. 

7300 PRINT "Felder... ■' 

7310 LET f=f+9ib 

7320 RETURN 

7340 REM Flutwelle- 

7350 LET H 3U = 1HT <RND*10B) 



7300 PRINT "Felder 



7390 LET F=f-kUu 

7400 RETURN 

7430 RE'1 Ein.^ndE-r-ung 

74:.:li.1 LET d?.zu=INT f Rr.(\KP t:'!i -,- 

7440 LET ie=ie+dazn 

7450 GO SUB 9200 

7460 PRINT i PRINT "Liters F 

nz ist *o beliebt" 

747? PRINT "9ei,ror.Jen,d.3.ss "; 

7460 PRINT "ei 

;--4?n LET P«=P+t _ 

7500 IF RND>.3 THEN RETURN 

7520 PEM P*=.t 

;?-'"' LET i... e g=INT C RH&*P^ 1 . 7 JH 






PRIh 






7560 PRINT "dieses J=hr "n 

Leute...." 

7570 LET P=p- Wt 9 

7380 LET is-=U*t,i=-s 

7590 RETURN 

7600 REN Ei-dbebs-n 

7610 IF t-e<5 THEN RETURN 















LET te 








r670 


RETURN 
REM St 


rife 






:■■;:":■ 


'..o SUE; 










PRINT 


PRINT ' 
. Es kaf 


Dein. 


Arbeit 












Tiders.e-triiTi=i 










LET 6** 


INT (ab*RNO* 


2>+l 
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7730 PRINT "Es starben "itti" Rr 


8528 DRTR 2.5,21.2 


5,23,2.5,24,2 


beiter " 

7748 LET i£=is*tt 
7758 LET *b=ab-tt 










,.2. 11. .2, 12.-2,11 


.5.9, .5, 11.6, 


7768 RETURN 


9 




7778 REM MorrJanschUS 


8700 RUN 




7780 LET xx=INT (RND*180) 


a 8 06 REM Saboteurs 




7880 IF xx<35 THEM CO TO 7858 


8810 IF RND<.6 THEt- 


RETURN 


7810 PRINT = PRINT "{lu bist kTsP 


8813 CO SUE 9000 




p einem Mordari=chla9" 


8820 GO SUB 9900 






8830 PRINT : PRINT 


■■ PRINT "Ger- 


7830 RETURN 


Bar', der Paramlde wurde Babo-" 


7850 GO SUE 9980 


8848 PRINT "tiert. 


tie Pararoide 


7360 PRINT ■• PRINT "Cm bist elTie 


1st in sich" 




m l-tordanschla.9 zuro" 


8845 PRINT "ru«.af*rrier<9«tiiprzt. .. 


7870 PRINT "Offer befallen. Deir, 






e Lei che" 


8856 IF RND<.75 THEN G 


7860 PRINT "uu.rd*- 9erad<? Sefv.nde 


8B60 PRINT "Du bist 

uernmern be-" 

8870 PRINT "Qr&ben 


UTiter derr Tr 


7898 PAUSE 


worden. " 


7900 GO TO 4888 


8888 PRUSE 




8008 REM Grefiks+BildsehiMX 


8890 GO TO 4800 




8085 RESTORE 


8900 PRINT "Sie rw.esser, Jetzt no 


8018 FOR a=144 TO 147 






8820 FOR b=0 TO 7 


8910 PRINT "vorne s 




B030 RERD c 


8920 PRUSE 




OKI J8R CHR* <a>+b.c 


8938 LET te=8 




8058 NEXT b 


8948 RETURN 




38SS NEXT a 


9880 REM BEEP mies 






9810 RESTORE 9300 




.13 


9020 FOR a=l TO 5 






9836 RERD b.c 




2 


9048 BEEP b.c 






9058 NEXT a 






9068 DRTR .09.-10.. 


1.-20, .1,-21, 


8188 DFiTfl 48,24,198,251,190,0,85 


.2.-25.-4,-38 




.178 


9878 RETURN 




B200 PAPER 0; INK ?• CLS 


9200 REM BEEP 9ut 




8210 GO SUB 9800 


9210 RESTORE 9208 




8220 PLOT 170,16 


9220 GO TO 9020 




8-23B DFRH -106, &■■ DRFlU 58.109^ 


9230 DRTR .09.7. .1, 


10,.l.l8,.l, 1 


RRW 50,-100 


0..2.15 




8240 DRRW 23,23^ drrw -73.77 


9240 RETURN 




aiPg print FIT 3-11; FLASH 1 ; "PVR 


9400 REM P*i-amide m 


alen 


Rr1IC€" 


9468 GO SUE 9900 




8318 PRINT RT 5,3;"* 1984 bn Rod 


9470 INK 1 





re.-;. Zatlmarm" 

s.35ti RESTORE 8508 

83SQ FOP a=l TO 23 = RERD x,v- BE 

EP „0B*x,M< NEXT a 

8378 RESTORE 8519 

8389 FOR 9 = 1 TO 21' RERD Xrii ' BE 

EP .08fc;,Li: NEXT a 

835E' RESTORE 8500 

8400 FOR a=l TO 23; RERD x,y- BE 

EF .38*x,ii^ NEXT a 

8410 RESTORE 8528 

8420 FOR a=l TO 19' RERD X.lf' BE 

EP .08*>;,y' NEXT a 

8500 DRTfi 1,11.1,9.1,8,1,5,4,12. 

1.14.1,12.1.11,1,12.4,16.1.17,1, 

16, 1,15,1.16.1.23,1.21,1,28.1,21 

,1,23,1,21,1,20,1,21,4,24 

8510 DRTR 2, 21. 2, 24. .2- 19, .2. 21. 

2, 23. 2, 21, 2, 19, 2, 21,. 2. 19.. 2. 21, 

2.23.2,21,2, 19. 2. 2 1.. 2. 19,. 2. 21. 

2,23.2,21,2. 19,2, 18.4,15 



i PLOT 1 

9490 DRFlU -lOfi.O ORFJil 58.100' D 

RAW 50,-180 

9588 DPRU 23,23' DRRW -73.77 

9518 IF te=l THEN GO TO 9620 

9528 FOR c=8 TO te-1 STEP .25 

9530 INK 6^ PRPER 

9540 LET j =58,27*, ; 

?'ri-} LET b=100'27*c+13 

S553 PLOT 3+50, b 

9570 DRRW 180-2*a,8 

95S8 DRfflJ 24-?.V27*.-.?4-23/27:fc 

9590 NEXT c 

96?? DS:RIJ -103i-2*a,B 

?6I» [>F:R[.J -24+?3.'27*c--24+2:B.--27* 
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9656 PRINT "Die 



-amide besteht 



?ee% PRINT "Fteiher.. Ee =.i-nd tmd-. 
" J 278-te2 

?6?f? PRINT "zu bauen, " 

9688 IF J««2 THEN PRINT AT 2,8; 

te2 

9690 PAUSE 6 

970S RETURN 

990S REM Raridverzi erring 

9916 CLS 

9920 INK 0. PAPER 6 

??■::(.' PRINT HT e,0/"flBC>DCBfli::&CL.t: 



9940 PRINT RT 21 .0; "flBCDCfijK&s X 

fltCBFlCDBf DCBRDCfDCRB " 

9950 INK 7= PRPER 

9960 PRINT AT 8.B; 

?3T$ RETURN 

9975 REM Die Bud-tstaben In Zeile 
9930 und 9940 sind im 
Gr*f ik-Modu* *iiizij.9eberi 



Hide" LINE B000; 




Schreiben Sie uns 
wen n Sie Fragen haben 



ABC Elektronic 
ZX Microdrive 
+ Interface 1 n„ r 



499.- 



ZX Spectrum Zubehor 
90.- 
198.- 



Spate hererwe item rig l6-4Sk ■ 

Speic hererwe it erurtg 16- 80 k 

Modell 2 Oder 3 angeben 

Kempston Joys tickin terrace 

+ Joystick - 79." 

dk Ironies Tastatur ^ nn 

auchlurZX81 erbaltlich - 189." 

Seikosha Drucker anschluGf. 

keine Software no tig I 

Seikosha GP 100A - 750." 

Seikosha GP 550 A = 1059.' 



Seikosha Drucker 


GP50A 


- 399.- 


GP50ZX 


- 399.- 


GP100A 


-550.- 


GP100VC 


- 550.- 


GP500A 


- 889.- 


Undhierwirdbestellt 




ABC Elektronic Andreas Buddie 


Am Brodhagen 100 ■ 4800 Bielefeld 1 


HI Elllge; a 05 21 / 89 03 81 nu 


tftOBUfc 



cpu,.K m ». B -7/s4 KLEINANZEIGEN si 



i^fp 


J5 KLEINANZEIGEN j J 







Sinclair 
ZX81 + Spectrum 



Texas In strumen ts 4 " wjam ™- re-im 

siii^^^^™uv 2 etw47» Sonst iges 



Curci|.iute' Kur [tiki R-Z.-'S-i 



KLEINANZEIGEN - 



■ COMPUTER-KURSE IM FREE-SYSTEM 






Bestellschein fiir private Kleinanzeigen 


































£-2*5^™ 


rr^r 1 "™', * ( 






.,™,» «„ Hrmm 



PREISAUSSCHREIBEN 



Preisausschreiben 

Erster Prcis: On VZ 200 mil 4 K 



en Mai lUtslch die USsiing 



U-U..I.I.I.IJJ.H 



Programme 

VIELE 

PROGRAMME 

ZURAUSWAHL 

-SCHCNAB DM 5.- 



BA8F Vldaocauettan 
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® ® 

®r> ^® 
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• REFRESHER 7 ' 

• Farb, 9 e Farisbandcassatten 

ComZu ■ H. Hofmann & W.-D. Luther 

Hiintlleraiifragen willkomnu-n ! 



